home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
program
/
srcbkvt.zip
/
20_20_4.ZIP
/
VMONFRM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-04-02
|
1KB
|
66 lines
unit vmonfrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, shdmem;
type
TForm1 = class(TForm)
SharedMemory: TShareMem;
C: TLabel;
Key: TEdit;
ReadButton: TButton;
UpdateButton: TButton;
procedure FormCreate(Sender: TObject);
procedure ReadButtonClick(Sender: TObject);
procedure UpdateButtonClick(Sender: TObject);
procedure KeyChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
s : String;
begin
ReadButtonClick(nil);
UpdateButton.Enabled:=False;
end;
procedure TForm1.ReadButtonClick(Sender: TObject);
var
n, code : integer;
s : String;
begin
{ Convert from string to int to string in case
the string is garbage to start with }
SharedMemory.Rcl(0,s);
val(s,n,code);
s:=IntToStr(n);
key.Text:=s;
end;
procedure TForm1.UpdateButtonClick(Sender: TObject);
begin
SharedMemory.Sto(0,key.Text);
UpdateButton.Enabled:=False;
end;
procedure TForm1.KeyChange(Sender: TObject);
begin
UpdateButton.Enabled:=True;
end;
end.